Instagram - Quem nao te segue de volta? - Programando uma funcao

Caso voce quereira baixar o Source code (codigo fonte) desse R notebook, clique no botao no canto superior direito chamado de “code” e selecione “download RMD” :)

Fala pessual! Muitas pessoas tem uma preocupacao muito grande com seus seguidores nas redes sociais. Principalmente, muitas pessoas gostam de conferir se seus amigos a seguem de volta. Entretanto, muitos dos aplicativos disponibilizados por terceiros, ou nao sao confiaveis ou nao sao permitidos pelo proprio instagram. Entao, sem mais delongas vou explicar como conferir quem te segue devolta no instagram!

Para fazer isso acesse os seguintes botoes no seu instagram

Creditos da imagem: Instagram

Creditos da imagem: Instagram

Creditos da imagem: Instagram

Aqui temos as contas que nos seguimos. Selecione todas elas, depois copie e cole no R.

Creditos da imagem: Instagram

Aqui temos as contas que nos seguem… Eu ainda nao tenho nenhuma conta me seguindo ja que eu comecei o meu canal agora… Copie e cole todas as contas no R

Creditos da imagem: Instagram

Os codigos utilizados no R

Pacotes necessarios:

Para utilizar os codigos voce tem que ter instalado o tityverse no environment do seu R… retire a hashtag do codigo abaixo caso voce nao tenha o tidyverse instalado.

#install.packages("tidyverse")

Criando os vetores com os seguidores e quem voce esta seguindo

Utilizando os dados voce conseguiu acessando sua conta no instagram

# cole as contas que seguem vc aq

meus_seguidores <- c("eu
nao")

# cole as contas que vc segue aq

estou_seguindo <- c("markosian
gal_gadot
karenxcheng
samhairwolfryder
siphomabona
tom_juenemann
instagram
eu")

Checando os outputs

estou_seguindo

[1] "markosian\ngal_gadot\nkarenxcheng\nsamhairwolfryder\nsiphomabona\ntom_juenemann\ninstagram\neu"

meus_seguidores

[1] "eu\nnao"

Criando a funcao

unfollow <-
  function(seus_seguidores,
           estou_seguindo){
    library(tidyverse)
    
    
    seguindo <- estou_seguindo
    seguidores <- seus_seguidores
    
    # Tirando os \n e transformando os valores dos seguidores em strings individuais
    
    seguindo <- str_split(string = seguindo, 
                      pattern = "\n")
    
    seguidores <- str_split(string = seguidores, 
                      pattern = "\n")
    
    #Transformando as lista em vetores
    
    seguindo <- seguindo[[1]]
    seguidores <- seguidores[[1]]
    
   #criando um vetor com as contas para deixa de seguir
    
    contas_unfollow <- setdiff(seguindo, seguidores)
    contas_unfollow <- sort(contas_unfollow)
    
    # Output da funcao
    
    cat("Essas sao as contas que nao te seguem devolta:",
   contas_unfollow)
    
  }

unfollow(seus_seguidores = meus_seguidores,
         estou_seguindo = estou_seguindo)

package 㤼㸱tidyverse㤼㸲 was built under R version 4.0.3Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.3.2     v purrr   0.3.4
v tibble  3.0.3     v dplyr   1.0.2
v tidyr   1.1.2     v stringr 1.4.0
v readr   1.3.1     v forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

Essas sao as contas que nao te seguem devolta: gal_gadot instagram karenxcheng markosian samhairwolfryder siphomabona tom_juenemann

Se voce gostou do conteudo, increva-se no canal e me siga no Github/instagram!

Canal Roda, por favor! https://www.youtube.com/channel/UCse1qSsK5mOK9rwdkfYMcfQ

Github https://github.com/roda-por-favor

Instagram https://www.instagram.com/roda_por_favor

Roda, por favor!

P.S Me desculpe por qualquer erro ortografico, meu teclado nao permite que eu use acentos nas palavras e meu computador nao tem corretor para portugues :)

Se voce estiver visualizando esse documento no R ou RStudio os “<”br/“>” sao expressoes usadas para pular uma linha.

Muito obrigado, ate a proxima!